home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / acadsave.zip / AUTOCAD.LSP < prev   
Text File  |  1987-04-03  |  2KB  |  38 lines
  1. ; Copyright (c) D. Scott Mecusker 1986,1987  Ph.(915) 594-8973
  2. ; ********** All rights reserved **********
  3. (vmon) (setvar "CMDECHO" 0)
  4. (defun *error* (st)
  5. (princ (strcat "\n" st)) (quote :))
  6. (defun C:ER () (setvar "CMDECHO" 0)
  7. (autosv) (command "ERASE") (quote *))
  8. (defun C:H () (setvar "CMDECHO" 0) (IF (= 0 (getvar "HIGHLIGHT"))
  9. (setvar "HIGHLIGHT" 1) (setvar "HIGHLIGHT" 0))
  10. (IF (= 1 (getvar "HIGHLIGHT")) (princ "\nHighlight ON\n")
  11. (princ "\nHighlight OFF\n")) (autosv))
  12. (setq tim (getvar "DATE") tme (/ 15 1440.0))
  13. (defun autosv () (setvar "CMDECHO" 0)
  14. (while (> (getvar "DATE") (+ tim tme))
  15. (princ "\n SAVING CURRENT DRAWING...     ")
  16. (command "SAVE" "CURRENT" "Y") (princ "*DONE")
  17. (setq tim (getvar "DATE"))) (quote *))
  18. (defun C:SI () (setvar "CMDECHO" 0) (princ "\nSave Increment <")
  19. (princ (* 1440 tme)) (prompt ">:") (setq tmf (* tme 1440.0) tme (getreal))
  20. (if (= nil tme) (setq tme tmf)) (setq tme (/ tme 1440.0)) (autosv))
  21. (defun C:W () (setvar "CMDECHO" 0)
  22. (autosv) (command "ZOOM" "W") (quote *))
  23. (defun C:C () (setvar "CMDECHO" 0)
  24. (autosv) (command "ZOOM" "C") (quote *))
  25. (defun C:D () (setvar "CMDECHO" 0)
  26. (autosv) (command "ZOOM" "D") (quote *))
  27. (defun C:N () (setvar "CMDECHO" 0)
  28. (autosv) (command "PAN") (quote *))
  29. (defun C:P () (setvar "CMDECHO" 0)
  30. (command "ZOOM" "P") (autosv))
  31. (defun C:X () (setvar "CMDECHO" 0)
  32. (command "ZOOM" "E") (autosv))
  33. (defun C:L () (setvar "CMDECHO" 0)
  34. (setq p1 (getvar "LIMMIN") p2 (getvar "LIMMAX"))
  35. (command "ZOOM" "W" p1 p2) (autosv))
  36. (defun C:R () (setvar "CMDECHO" 0)
  37. (command "REDRAW") (autosv))
  38.